#!/usr/local/bin/perl5

$str="yabba dabba doo";
print $str."1\n" if($str=~/y(.)(.)\2\1/);
print $str."2\n" if($str=~/y(.... )d/);
print $str."3\n" if($str=~/y(....) d\g{1}/);
print $str."4\n" if($str=~/y(....) d\1/);
print $str."5\n" if($str=~/^y.*o$/);
print $str."6\n" if($str=~/y(.)(.)/);
print $str."7\n" if($str=~/y(.)(.)\2\1(.)d/);